The Cartoon Guide to Physics/The Cartoon Guide to Physics.iso/pc/physdata/opening.dir/00008.ls

Text File | 1995-09-10 | 514 b | 30 lines

on startMovie
  global t, ShowAnimation, SeenQt, Stories
  set the exitLock to 1
  set Stories to 0
  set ShowAnimation to 1
  set SeenQt to 0
  change_to_hand("4,5,6,8,9,10,11")
  set the cursor of sprite 7 to -1
  updateStage()
  set the volume of sound 1 to 255
  if the machineType = 256 then
    openXLib(the pathName & "FILEIO.DLL")
  end if
end

on ofir
  if the frame < 110 then
    go("ofir")
  else
    pass()
  end if
end

on mouseDown
  if the frame < 110 then
    unLoad()
    go("ofir")
  end if
end